home *** CD-ROM | disk | FTP | other *** search
/ Holt Researcher: American History / Holt Researcher: American History.iso / pc / modules / tour.dxr / 00002_init menu buttons.ls < prev    next >
Encoding:
Text File  |  2000-01-21  |  1011 b   |  20 lines
  1. global gMenuButton, gMenuExit, gMenuList
  2.  
  3. on InitMenuButtons
  4.   gMenuList = [:]
  5.   b1 = 30
  6.   addProp(gMenuList, b1, new(script("tour menu buttons"), "overview", "internal", b1, the loc of sprite b1, 1))
  7.   b1 = b1 + 1
  8.   addProp(gMenuList, b1, new(script("tour menu buttons"), "navigation", "internal", b1, the loc of sprite b1, 1))
  9.   b1 = b1 + 1
  10.   addProp(gMenuList, b1, new(script("tour menu buttons"), "searching", "internal", b1, the loc of sprite b1, 1))
  11.   b1 = b1 + 1
  12.   addProp(gMenuList, b1, new(script("tour menu buttons"), "graphs", "internal", b1, the loc of sprite b1, 1))
  13.   b1 = b1 + 1
  14.   addProp(gMenuList, b1, new(script("tour menu buttons"), "word", "internal", b1, the loc of sprite b1, 1))
  15.   b1 = b1 + 1
  16.   addProp(gMenuList, b1, new(script("tour menu buttons"), "credits", "internal", b1, the loc of sprite b1, 1))
  17.   gMenuButton = new(script("TMenu button"), "TMenu", "internal", 40, the loc of sprite 40)
  18.   gMenuExit = new(script("TExit button"), "TExit", "internal", 41, the loc of sprite 41)
  19. end
  20.